﻿
Partial Class admin_general_LookupAdmin
    Inherits System.Web.UI.Page

    'Protected Sub CampaignTypeODS_Selecting(sender As Object, e As ObjectDataSourceSelectingEventArgs) Handles CampaignTypeODS.Selecting
    '    e.InputParameters("Id") = Nothing
    'End Sub

    'Protected Sub CurrencyODS_Selecting(sender As Object, e As ObjectDataSourceSelectingEventArgs) Handles CurrencyODS.Selecting
    '    e.InputParameters("Id") = Nothing
    'End Sub

    'Protected Sub EntityTypeODS_Selecting(sender As Object, e As ObjectDataSourceSelectingEventArgs) Handles EntityTypeODS.Selecting
    '    e.InputParameters("Id") = Nothing
    'End Sub

    'Protected Sub ListTypeODS_Selecting(sender As Object, e As ObjectDataSourceSelectingEventArgs) Handles ListTypeODS.Selecting
    '    e.InputParameters("Id") = Nothing
    'End Sub

    'Protected Sub OptinMethodODS_Selecting(sender As Object, e As ObjectDataSourceSelectingEventArgs) Handles OptinMethodODS.Selecting
    '    e.InputParameters("Id") = Nothing

    'End Sub

    'Protected Sub SystemMessageGroupItemODS_Selecting(sender As Object, e As ObjectDataSourceSelectingEventArgs) Handles SystemMessageGroupItemODS.Selecting
    '    e.InputParameters("Id") = Nothing

    'End Sub

    'Protected Sub TargetListColumnListODS_Selecting(sender As Object, e As ObjectDataSourceSelectingEventArgs) Handles TargetListColumnListODS.Selecting
    '    e.InputParameters("Id") = Nothing

    'End Sub

    'Protected Sub VatRateODS_Selecting(sender As Object, e As ObjectDataSourceSelectingEventArgs) Handles VatRateODS.Selecting
    '    e.InputParameters("Id") = Nothing
    'End Sub

    'Protected Sub PaymentMethodODS_Selecting(sender As Object, e As ObjectDataSourceSelectingEventArgs) Handles PaymentMethodODS.Selecting
    '    e.InputParameters("Id") = Nothing
    'End Sub

    Protected Sub DropDownList1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DropDownList1.SelectedIndexChanged
        MultiView1.ActiveViewIndex = DropDownList1.SelectedValue
    End Sub


    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            If DropDownList1.SelectedValue Is Nothing Then
                MultiView1.ActiveViewIndex = 0
            Else
                MultiView1.ActiveViewIndex = DropDownList1.SelectedValue

            End If

        End If

    End Sub
End Class
